home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / _GUICtrlIpAddressSetFont.au3 < prev    next >
Encoding:
Text File  |  2007-09-08  |  904 b   |  36 lines
  1. #include <GuiIPAddress.au3>
  2.  
  3. Opt("MustDeclareVars", 1)
  4.  
  5. _Main()
  6.  
  7. Func _Main()
  8.     Local $msg, $hgui, $button, $hIPAddress, $hIPAddress2
  9.     
  10.     $hgui = GUICreate("IP Address Control Set Font Example", 300, 150)
  11.     
  12.     $hIPAddress = _GUICtrlIpAddressCreate ($hgui, 10, 10, 150, 30,  $WS_DLGFRAME, $WS_EX_CLIENTEDGE)
  13.     $hIPAddress2 = _GUICtrlIpAddressCreate ($hgui, 10, 50, 150, 30,  $WS_DLGFRAME, $WS_EX_CLIENTEDGE)
  14.     
  15.     $button = GUICtrlCreateButton("Exit", 100, 120, 100, 25)
  16.  
  17.     GUISetState(@SW_SHOW)
  18.  
  19.     _GUICtrlIpAddressSet ($hIPAddress, "24.168.2.128")
  20.     _GUICtrlIpAddressSetFont($hIPAddress, "Times New Roman", 14, 800, True)
  21.     _GUICtrlIpAddressSet ($hIPAddress2, "24.168.2.128")
  22.     _GUICtrlIpAddressSetFont($hIPAddress2, "Arial", 12, 300)
  23.     
  24.  
  25.     
  26.     
  27.     While 1
  28.         $msg = GUIGetMsg()
  29.         
  30.         Select
  31.             Case $msg = $GUI_EVENT_CLOSE Or $msg = $button
  32.                 Exit
  33.         EndSelect
  34.     WEnd
  35. EndFunc   ;==>_Main
  36.